100 Plus Great Games 2/100PLUSV2.BIN/games/WakeRace.dxr/Internal_2_Track Functions.ls

Text File | 2002-01-25 | 603 b | 30 lines

global gtTrackSpriteNum

on t_Init trackSpriteNum, trackNum
  gtTrackSpriteNum = trackSpriteNum
  sprite(gtTrackSpriteNum).member = member("Track" & trackNum)
end

on t_Update theOffset
  sprite(gtTrackSpriteNum).loc = -theOffset
end

on t_GroundCheck theLoc
  theMember = sprite(gtTrackSpriteNum).member.name & "Alpha"
  terrainType = getPixel(member(theMember), theLoc[1], theLoc[2])
  case terrainType of
    0:
      return #track
    3:
      return #smallRamp
    4:
      return #bigRamp
    6:
      return #mediumRamp
    2:
      return #inpassible
    255:
      return #grass
  end case
end